Eros - Digital Erotica & Games/Eros - Digital Erotica & Games.iso/mac/EROS vol.1/EROS vol.DXR/00559.ls

Text File | 1995-07-07 | 2.6 KB | 91 lines

on exitFrame
  global MD7, MD8, rantime, mp
  go(marker(0) + 3)
  if the machineType = 256 then
    Navi()
    set xxx to "md" & mp - 3 & EMPTY
    set mdx to value(xxx)
    if (the ticks - rantime) > 240 then
      set mp to random(8) + 3
      set rantime to the ticks
      set xxx to "md" & mp - 3 & EMPTY
      set mdx to value(xxx)
    end if
    if the movieTime of sprite mp > mdx then
      set the movieRate of sprite mp to -0.80000000000000004
    end if
    if the movieTime of sprite mp < 3 then
      set the movieRate of sprite mp to 0.80000000000000004
    end if
    if the movieRate of sprite mp = 0 then
      set the movieRate of sprite mp to 1
    end if
  else
    movWatch()
    if the movieTime of sprite 10 > MD7 then
      set the movieRate of sprite 10 to -0.80000000000000004
    end if
    if the movieTime of sprite 10 < 3 then
      set the movieRate of sprite 10 to 0.80000000000000004
    end if
    if the movieRate of sprite 10 = 0 then
      set the movieRate of sprite 10 to 1
    end if
    if the movieTime of sprite 11 > MD8 then
      set the movieRate of sprite 11 to -0.80000000000000004
    end if
    if the movieTime of sprite 11 < 3 then
      set the movieRate of sprite 11 to 0.80000000000000004
    end if
    if the movieRate of sprite 11 = 0 then
      set the movieRate of sprite 11 to 1
    end if
  end if
  Navi()
  if rollOver(4) then
    set the locH of sprite 3 to the locH of sprite 4
    set the locV of sprite 3 to the locV of sprite 4 + 3
    exit
  end if
  if rollOver(5) then
    set the locH of sprite 3 to the locH of sprite 5
    set the locV of sprite 3 to the locV of sprite 5 + 3
    exit
  end if
  if rollOver(6) then
    set the locH of sprite 3 to the locH of sprite 6
    set the locV of sprite 3 to the locV of sprite 6 + 3
    exit
  end if
  if rollOver(7) then
    set the locH of sprite 3 to the locH of sprite 7
    set the locV of sprite 3 to the locV of sprite 7 + 3
    exit
  end if
  if rollOver(8) then
    set the locH of sprite 3 to the locH of sprite 8
    set the locV of sprite 3 to the locV of sprite 8 + 3
    exit
  end if
  if rollOver(9) then
    set the locH of sprite 3 to the locH of sprite 9
    set the locV of sprite 3 to the locV of sprite 9 + 3
    exit
  end if
  if rollOver(10) then
    set the locH of sprite 3 to the locH of sprite 10
    set the locV of sprite 3 to the locV of sprite 10 + 3
    exit
  end if
  if rollOver(11) then
    set the locH of sprite 3 to the locH of sprite 11
    set the locV of sprite 3 to the locV of sprite 11 + 3
    exit
  end if
  set the locH of sprite 3 to -200
end

on idle
  Navi()
end